



use "${pathdata_baseline}/BaselineExperimentRecall.dta", clear

preserve

* Combined Recall Version 2 , i.e. remember valence AND correct recall (Y) story type (X)

	gen id_temp = .
	replace id_temp = 0 if inlist(story_type,"consistent") & inlist(condition_,"storyshort_neg", "storyshort_pos")
	replace id_temp = 1 if inlist(story_type,"mixed") & inlist(condition_,"storyshort_neg", "storyshort_pos")
	replace id_temp = 2 if inlist(story_type,"neutral") & inlist(condition_,"storyshort_neg", "storyshort_pos")
	replace id_temp = 3 if inlist(condition_,"statistic_neg", "statistic_pos")




	keep if inlist(condition_,"storyshort_neg", "storyshort_pos", "statistic_pos", "statistic_neg")

	collapse (mean) recallcombined (seb) seb = recallcombined, by(id_temp)
	
	list

	gen h = recallcombined + seb
	gen l = recallcombined - seb

	tw (scatter recallcombined id_temp if inlist(id_temp, 0,1,2), mcolor(ebblue*1.5) ) ///
	(rcap h l id_temp if inlist(id_temp, 0,1,2), lw(medthick) lcolor(ebblue*1.5)) ///
	(scatter recallcombined id_temp if inlist(id_temp, 3), mcolor(red*1.5) ) ///
	(rcap h l id_temp if inlist(id_temp, 3), lw(medthick) lcolor(red*1.5)), ///
	graphregion(color(white)) ysc(r(0 0.8)) ylab(0(0.2)0.8, angle(horizontal) tlc(none)  glcolor(gs15) glwidth(thin))  ysc(lcolor(none))  xsc(r(-0.7 3.7) lcolor(none)) ///
	 xlab(0 "Consistent" 1 `" "Mixed" " " "{bf:Story type}" "' 2 "Neutral"  3 "Statistic" ,valuelabel) xtitle(" ") ytitle("Mean Rate  {c 177} SEM", color(black))  leg(off) ///
	 		yline(0, lcolor(gs10) lwidth(thin)) ///]
			xline(2.5, lwidth(thin) lcolor(black) lp(dash)) ///
	 	title("Correct recall by story content",  color(black)) ysize(5) xsize(10) 
	graph export "${pathout_baseline}/figures/figureA2.pdf", replace
